ADA Programming Guide/ADA Programming Guide.iso/ada_pcdp/adas/ren.ada

Text File | 1996-01-30 | 496 b | 35 lines

with Text_IO; use Text_IO;
with Integer_Text_IO; use Integer_Text_IO;
procedure ren is

task t1 is
  entry e(i: in integer);
task body t1 is
begin
  loop
    accept e(i: in integer) do
      put("Rendezvous with "); put(i); new_line;
    end e;
  end loop;
end t1;

task t2;
task body t2 is
begin
  for i in 1 .. 5 loop
    t1.e(2);
  end loop;
end t2;

task t3;
task body t3 is
begin
  for i in 1 .. 5 loop
    t1.e(3);
  end loop;
end t3;

begin
  null;
end;